(x-create-frame-with-faces): Don't downcase nil.

diff --git a/lisp/faces.el b/lisp/faces.el
index 1bb33b407f917deabdf38f42eb8c7c06e513931b..02de5dcc8a155afe58069925583702a1e978bc37 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -815,9 +815,11 @@ selected frame."
 
       (if (cdr (or (assq 'reverse parameters)
                   (assq 'reverse default-frame-alist)
-                  (cons nil (member (downcase (x-get-resource "reverseVideo"
-                                                              "ReverseVideo"))
-                                    '("on" "true")))))
+                  (let ((resource (x-get-resource "reverseVideo"
+                                                  "ReverseVideo")))
+                    (if resource
+                        (cons nil (member (downcase resource)
+                                          '("on" "true")))))))
          (let ((params (frame-parameters frame)))
            (modify-frame-parameters
             frame